home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 April
/
Ahoy_Magazine_87-04_1987_Double_L.d64
/
Life Times 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
286b
|
9 lines
0 print"[147]":poke646,1:poke53280,0:poke53281,0
1 rem ==================================
2 rem commodares problem #36-3 :
3 rem life times
4 rem solution by
5 rem clifford dedmore
6 rem ==================================
10 t$(1)="bc":inputy,a:fork=1to100:y=y-a:printk,abs(y)-(y<1);t$(-(y<1)):next